home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / WWW / http / www.wirenet.co.uk / files / Wirenet151.lzx / Updates / StopNet < prev    next >
Text File  |  2018-09-20  |  461b  |  29 lines
  1. ; $VER: 1.5 StopNet (01.09.96)
  2.  
  3. If Exists AmiTCP:db/User-Stopnet
  4.     AmiTCP:db/User-Stopnet
  5. EndIf
  6.  
  7. If exists "ENV:Wirenet/UseMiami"
  8.     ; Stop Miami
  9.     rx "address 'MIAMI.1' 'QUIT'"
  10.     wait 2
  11. Else
  12.     ; Stop AmiTCP
  13.     Lab KillTCP
  14.     If `rx "Say Show(ports, AMITCP)"` EQ 0
  15.         skip NoTCP
  16.         EndIf
  17.  
  18.     rx "address AMITCP; KILL" ; Send "KILL" to AmiTCP
  19.     Wait 2
  20.     Skip KillTCP BACK
  21.  
  22.     Lab NoTCP
  23. EndIf
  24.  
  25. Avail Flush >NIL:
  26.  
  27. SetEnv NetState NoNet
  28.  
  29.